<% ''on error resume next dim cmidbanners, rmidbanners, sqlmidbanners set cmidbanners=server.createobject("adodb.connection") cmidbanners.open DSN_NAME set rmidbanners=server.createobject("adodb.recordset") sqlmidbanners="select * from midbanners" rmidbanners.open sqlmidbanners, cmidbanners,3 'if rmidbanners.eof=true and rmidbanners.bof=true then dim printOBJ3 coppz = 0 do while not rmidbanners.eof coppz = coppz+1 if rmidbanners("active") = 1 then '' is the ban Active ? if rmidbanners("banner_href") = "0" then linker = "" else if rmidbanners("blank_target") = "1" then blankTar = " target=_blank" linker = "" end if if rmidbanners("is_swf") = "1" then printOBJ3 = "" else printOBJ3 = linker & "" end if if coppz = 1 then response.write "" & printOBJ3 & "" else if coppz = 2 then response.write "" & printOBJ3 & "" end if end if else bo = 1 end if rmidbanners.movenext loop set rmidbanners=nothing set cmidbanners=nothing %>